COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SWITCH"
C00003 ENDMK
C⊗;
BEGIN "SWITCH"
INTEGER I,J,K,II;
PRELOAD_WITH '54,'53,'55; INTEGER ARRAY VD[1:3];
PRELOAD_WITH '16,'15,'01; INTEGER ARRAY AD[1:3];


WHILE TRUE DO
FOR II←1 STEP 1 UNTIL 3 DO
   BEGIN
   J←VD[II];
   K←VD[((II+4) MOD 3)+1];
   I←(AD[II]*2↑18) LOR '324000000000;
   START_CODE
           MOVE    1,I;
           CALLI   1,'400110;
           HRRI    1,J;
           HRLI    1,'401402;
           CALLI   1,'400070;
	   MOVE	   1,1;
           HRRI    1,K;
           HRLI    1,'401401;
           CALLI   1,'400070;
           MOVE    1,1;
   END;
   CALL(1,"SLEEP");
   END;

END